home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / coins.dir / 00108_left arrow.ls < prev    next >
Encoding:
Text File  |  1995-08-04  |  602 b   |  22 lines
  1. on mouseUp
  2.   global gCurrentCastNum, gEndCoin, gStartCoin
  3.   puppetSound("newclick.aif")
  4.   set the ink of sprite the clickOn to 4
  5.   updateStage()
  6.   repeat while the stillDown or soundBusy(1)
  7.   end repeat
  8.   set the ink of sprite the clickOn to 36
  9.   updateStage()
  10.   puppetSprite(20, 0)
  11.   if gCurrentCastNum > gStartCoin then
  12.     set gCurrentCastNum to gCurrentCastNum - 1
  13.     set the castNum of sprite 20 to gCurrentCastNum
  14.     put the castNum of sprite 20
  15.   else
  16.     set gCurrentCastNum to gEndCoin
  17.     set the castNum of sprite 20 to gCurrentCastNum
  18.     put gCurrentCastNum
  19.   end if
  20.   updateStage()
  21. end
  22.